﻿Namespace Control
    Partial Public Class Search1
        Inherits UserControl

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
            Dim sCatID As String = ""
            Dim objCategory As New Core.BLL.Categories
            If Not Request.QueryString("c") = vbNullString And IsNumeric(Request.QueryString("c")) Then
                sCatID = Request.QueryString("c")
            End If
            ShowCat.InnerHtml = objCategory.WriteCategoryInside(5, sCatID)
        End Sub

    End Class
End Namespace